home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / FORTGAME.DIR / 00277_Script_setUpObjects in rooms < prev    next >
Text File  |  1996-03-20  |  2KB  |  76 lines
  1.  ------------------------------------------------ SET UP OBJECTS IN ROOMS
  2.  
  3. on setUpObjects whichPos
  4.   global Snorkel1Taken, Snorkel1Sprite
  5.   global objectChannel1, objectChannel2
  6.   global BackwardNoteTaken, BackwardNoteSprite
  7.   global MusicClue1Taken, MusicClueSprite
  8.   global MusicClue2Taken
  9.   global Key1Taken, KeySprite
  10.   global Key2Taken
  11.   global Key3Taken
  12.   global Key4Taken
  13.   puppetSprite objectChannel1, false
  14.   puppetSprite objectChannel2, false
  15.   
  16.   if whichPos = "R 11" then -- backward note
  17.     if BackwardNoteTaken then
  18.       hideSprite BackwardNoteSprite, 0
  19.     else
  20.       setGrabObjectCursor BackwardNoteSprite
  21.     end if
  22.     
  23.   else if whichPos = "R 15" then -- music clue 1
  24.     if MusicClue1Taken then
  25.       hideSprite MusicClueSprite, 0
  26.     else
  27.       setGrabObjectCursor MusicClueSprite
  28.     end if
  29.     
  30.   else if whichPos = "R 4" then -- key 1
  31.     if Key1Taken then
  32.       hideSprite KeySprite, 0
  33.     else
  34.       setGrabObjectCursor KeySprite
  35.     end if
  36.     
  37.   else if whichPos = "R 19" then -- key 3
  38.     if Key3Taken then
  39.       hideSprite KeySprite, 0
  40.     else
  41.       -- setGrabObjectCursor KeySprite
  42.     end if
  43.     
  44.   else if whichPos = "R 16" then -- key 4
  45.     if Key4Taken then
  46.       hideSprite KeySprite, 0
  47.     else
  48.       setGrabObjectCursor KeySprite
  49.     end if
  50.     
  51.   else if whichPos = "R 23" then -- music clue 2
  52.     if MusicClue2Taken then
  53.       hideSprite MusicClueSprite, 0
  54.     else
  55.       setGrabObjectCursor MusicClueSprite
  56.     end if
  57.     
  58.   else if whichPos = "R 10" then -- key 2
  59.     if Key2Taken then
  60.       hideSprite KeySprite, 0
  61.     else
  62.       setGrabObjectCursor KeySprite
  63.     end if
  64.     
  65.   else if whichPos = "R 5" then -- snorkel 1
  66.     if Snorkel1Taken then
  67.       hideSprite Snorkel1Sprite, 0
  68.     else
  69.       setGrabObjectCursor Snorkel1Sprite
  70.     end if
  71.     
  72.     
  73.   end if
  74.   
  75. end setUpObjects
  76.